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-- BcdErrorDefs.mesa; edited by Johnsson on January 30, 1978 2:14 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs", 
BcdTabDefs: FROM "bcdtabdef s" , 
BcdTreeDefs: FROM "bcdtreedef s" ; 

DEFINITIONS FROM BcdTabDefs, BcdDefs; 

BcdErrorDefs: DEFINITIONS ■ 
BEGIN 

ErrorClass: TYPE ■ {error, warning}; 

GetModule: SIGNAL RETURNS [errorMti: MTIndex]; 
Getlnterface: SIGNAL RETURNS [errorExpi: EXPIndex]; 
GetSti: SIGNAL RETURNS [errorSti: STIndex]; 

Error: PROCEDURE [class: ErrorClass, s: STRING]; 

ErrorSti: PROCEDURE [class: ErrorClass, s: STRING, sti: STIndex]; 

ErrorHti: PROCEDURE [class: ErrorClass, s: STRING, hti: HTIndex]; 

ErrorName: PROCEDURE [class: ErrorClass, s: STRING, name: NameRecord]; 

Errorltem: PROCEDURE [class: ErrorClass, s: STRING, i: CARDINAL]; 

ErrorModule: PROCEDURE [class: ErrorClass, s: STRING, mti: MTIndex]; 

Errorlnterface: PROCEDURE [class: ErrorClass, s: STRING, name: NameRecord, ep: CARDINAL]; 

ErrorNameBase: PUBLIC PROCEDURE [class: ErrorClass, s: STRING, name: NameRecord, base: NameString]; 

ErrorFile: PROCEDURE [class: ErrorClass, s: STRING, fti: FTIndex]; 

Error2Files: PROCEDURE [class: ErrorClass, s: STRING, ftl, ft2: FTIndex]; 

END... 


